home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 326-350 / disk_339 / pcq / examples / writehex.p < prev   
Text File  |  1992-05-06  |  575b  |  32 lines
  1. program WriteHexTest;
  2.  
  3. { I can't remember what prompted me to write this program. }
  4.  
  5.  
  6. Procedure WriteHex(num : Integer);
  7. var
  8.     Result : Array [1..8] of Char;
  9.     index  : Short;
  10.  
  11.     Function ToHex(n : Short) : Char;
  12.     begin
  13.     if n < 10 then
  14.         ToHex := Chr(n + Ord('0'))
  15.     else
  16.         ToHex := Chr(n - 10 + Ord('A'));
  17.     end;
  18.  
  19. begin
  20.     for index := 8 downto 1 do begin
  21.     Result[index] := ToHex(num and 15);
  22.     num := num div 16;
  23.     end;
  24.     Write(Result);
  25. end;
  26.  
  27. begin
  28.     WriteHex($01010101); WriteLn;
  29.     WriteHex($10101010); WriteLn;
  30.     WriteHex(MaxInt); WriteLn;
  31. end.
  32.